home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Freeware / PerfectPaint / rexx / Alchemy / Script / PatchWork.rx < prev    next >
Encoding:
Text File  |  2002-03-13  |  950 b   |  65 lines
  1. /* Alchemy script
  2. 100
  3. 1
  4. 4
  5. */
  6.  
  7.     options results
  8.   parse ARG Port x1 y1 x2 y2 type b
  9.     ADDRESS value Port
  10.  
  11.     pp_GetPenType
  12.     PType=result
  13.  
  14.     pp_ClosestColor 0 0 0
  15.     Black=result
  16.  
  17.     pp_ComposeReqOff
  18.     pp_EffectOn
  19.     pp_Compose 0 100 0
  20.     pp_AvoidRefresh    
  21.     pp_Progresstext 'PatchWork'
  22.     pp_UpdateUndoBox x1-1 y1-1 x2+1 y2+1
  23.     tot=4
  24.  
  25.     pp_Progress 1 tot
  26.     pp_RainbowMosaic (type*5)+10
  27.     pp_BoxF x1 y1 x2 y2
  28.  
  29.         pp_Progress 2 tot
  30.     C=-1
  31.         pp_ConvInit 0 1 0
  32.         pp_Conv 0 0 0 0 0 0
  33.         pp_Conv 1 0 0 C 0 0
  34.         pp_Conv 2 0 C 5 C 0
  35.         pp_Conv 3 0 0 C 0 0
  36.         pp_Conv 4 0 0 0 0 0
  37.         pp_BoxF x1 y1 x2 y2
  38.  
  39.     pp_Progress 3 tot
  40.     C=-3
  41.     C2=-1
  42.         pp_ConvInit 1 1 0
  43.         pp_Conv 0 0 0 1 0 0
  44.         pp_Conv 1 0 0 3 0 0
  45.         pp_Conv 2 1 3 1 C C2
  46.         pp_Conv 3 0 0 C 0 0
  47.         pp_Conv 4 0 0 C2 0 0
  48.         pp_BoxF x1 y1 x2 y2
  49.  
  50.  
  51.     pp_Progress 4 tot    
  52.     pp_EffectOff
  53.     pp_SetApen Black
  54.     pp_PenType 0
  55.     pp_box x1 y1 x2 y2
  56.     pp_box x1+1 y1+1 x2-1 y2-1
  57.     pp_PenType PType
  58.     pp_ComposeReqOn
  59.     pp_PermitRefresh
  60.     pp_ProgressClr
  61.  
  62. EXIT
  63.  
  64.     Exit
  65.